home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Turnbull China Bikeride
/
Turnbull China Bikeride - Disc 2.iso
/
STUTTGART
/
PROBLEMS
/
BENCHMARK
/
BUBBLESORT
/
bubbletest
/
perl
/
!run
next >
Wrap
Text File
|
1992-05-15
|
355b
|
9 lines
set bubble_perl$dir <obey$dir>
*if "<perl$path>"="" then error 1 set path to the perl interpreter ! set perl$path
<perl$path>perl <bubble_perl$dir>.source { > <bubble_perl$dir>.output }
set bubbletest$dir <obey$dir>.^
<bubbletest$dir>.prove <bubble_perl$dir>.output { > <bubble_perl$dir>.time }
settype <bubble_perl$dir>.time text
<bubble_perl$dir>.time